home *** CD-ROM | disk | FTP | other *** search
/ Mail Madness! 4 / Mail_Madness_04_19xx_-_Side_A.d64 / apfelsinus _drms (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  44 lines
  1. 1 sys 3793 :poke53280,0:poke53281,12:poke53276,2:poke53286,5:poke53287,9
  2. 2 poke53288,8:poke2040,14:poke2041,15
  3. 3 print"[147][155]                                       [146][151][187][155]";
  4. 7 print"  t h e   d r e a m s   p r e s e n t  [146][151][161][155]";
  5. 8 print"                                       [146][151][161][155]";
  6. 9 print" [151][188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190][155]"
  7. 10 print"                                       [146][151][161][155]";
  8. 11 print"              apfel - sin              [146][151][161][155]";
  9. 20 print" 31.12.1994 by the real rabbit & zaphod[146][151][161][155]";
  10. 25 print"                                       [146][151][161]";
  11. 26 print" [188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190][151]"
  12. 30 input"x-range (1-8191) ";in$:xr=val(in$)
  13. 31 ifxr=0 or xr>8191 then30
  14. 40 input"y-range (0-255) ";in$:yr=val(in$)/2
  15. 41 if yr>255 then print "zu gross!!!":run 30
  16. 50 input"y-start           ";in$:ys=val(in$)
  17. 51 if 2*yr+ys>255 then print "zu gross!!!":run 30
  18. 60 xd=2*(NULL)/xr:x=int(xr/2+.5):x1=int(sin(x*xd)*yr+.5):x2=int(sin(x*xd-xd)*yr+.5)
  19. 70 print"max. differenz:";int(abs(x1-x2)+.5)
  20. 80 print"alles fit (j/n) ?>";
  21. 90 poke198,0:wait 198,1:get a$:if a$="n" then run
  22. 100 if a$<>"j"then 90
  23. 105 printa$
  24. 110 fort=0toxr:poke40960+t,int(sin(t*xd)*yr+0.5+yr+ys)
  25. 120 print"kalkuliert :"int(100*t/xr+.5)"%[157][157]               [145]":next
  26. 200 poke254,int((xr+40960)/256):poke253,(xr+40960)-peek(254)*256:poke255,0
  27. 210 sys49152
  28. 220 poke198,0:wait198,1:geta$:ifa$<>" "then 220
  29. 230 poke255,1:poke53269,0:print:print
  30. 240 input"zaphen (j/n)";a$:ifa$="n" thenrun
  31. 250 if a$<>"j"then 240
  32. 260 input"saveadress ($)";a$:z=0
  33. 270 fort=1tolen(a$):b$=mid$(a$,t,1)
  34. 280 z=z+16^(len(a$)-t)*(asc(b$)-48+7*(asc(b$)>57)):next
  35. 290 print"dat file is";:x=int((2+xr)/254+.99999):printx"block";:ifx>1thenprint"s";
  36. 300 print" lang":input"filename ";a$
  37. 301 input"device  8[157][157][157]";d$:print"disk einlegen!"
  38. 310 poke198,0:wait198,1:poke198,0:open1,val(d$),15:close1
  39. 320 if st=-128 thenprint"device not present!":goto301
  40. 330 open1,val(d$),2,a$+",p,w":hi=int(z/256):lo=z-hi*256:print#1,chr$(lo);
  41. 335 print#1,chr$(hi);:poke251,0:poke252,160
  42. 340 fort=0toxr-1:sys49302:print#1,chr$(peek(87));:next:close1
  43. 350 print"fertich!"
  44.